﻿Imports System.Net

Namespace FTTK.Json
    <Obsolete("", True)>
    Public Class FotoliaCredential
        Implements ICredentials

        Public Property ApiKey As String

        Public Function GetCredential(uri As System.Uri, authType As String) As System.Net.NetworkCredential Implements System.Net.ICredentials.GetCredential
            Dim credential = New NetworkCredential()
            credential.UserName = ApiKey
            credential.Password = Nothing

            Return credential
        End Function
    End Class
End Namespace